proc mode {nick chan botnet host} {
global botnick home bcast 
if {![botisop $chan]} {
  putquick "NOTICE $nick :\0034ERROR - Bot dosen't have op status (+o) in $chan"
  putquick "PRIVMSG $home :Mode change request from \002$nick\002 ($host) in $chan failed - I'm not op'd."
  return 0
  }	
if {$botnet == ""} {
  putquick "NOTICE $nick :\0034ERROR - No Mode Specified - (+) or (-) i , n , t , m , p, s , k , l" 
  return 0
  }
if {$botnet == "+k"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +k <set key>" 
  return 0
  }
if {$botnet == "t"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +t or $botnick mode -t" 
  return 0  
  }
if {$botnet == "-k"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode -k <key>" 
  return 0    
  }  
if {$botnet == "+l"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +l (whatever limit you want)" 
  return 0    
  }
if {$botnet == "i"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +i or $botnick mode -i" 
  return 0    
  }   
if {$botnet == "k"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +k or -k <key>" 
  return 0      
  }
if {$botnet == "l"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +l or -l" 
  return 0      
  }    
if {$botnet == "p"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +p or -p" 
  return 0     
  }
if {$botnet == "s"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +s or -s" 
  return 0      
  }   
if {$botnet == "m"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +m or -m" 
  return 0   
  }   
if {$botnet == "n"} {
  putquick "NOTICE $nick :\0034ERROR - Invalid Syntax - Should Be - (/msg) $botnick mode +n or -n" 
  return 0
  }
  putlog "!$nick ($host)! mode $chan $botnet"
  putquick "MODE $chan $botnet"
  putquick "NOTICE $nick :Sucessfully set mode $botnet on $chan"
if {$bcast == "1"} {
  putquick "PRIVMSG $home :\002$nick\002 ($host) requested to me to mode \002$botnet\002 on \002$chan\002"
  }
  }









